FOR(X,1,DIM L1
L1(X) -> C
IF C=38:DISP "A"
IF C=37:DISP "B"
IF C=36:DISP "C"
IF C=35:DISP "D"
IF C=34:DISP "E"
IF C=33:DISP "F"
IF C=32:DISP "G"
IF C=31:DISP "H"
IF C=30:DISP "I"
IF C=29:DISP "J"
IF C=28:DISP "K"
IF C=27:DISP "L"
IF C=26:DISP "M"
IF C=25:DISP "N"
IF C=24:DISP "O"
IF C=23:DISP "P"
IF C=22:DISP "Q"
IF C=21:DISP "R"
IF C=20:DISP "S"
IF C=19:DISP "T"
IF C=18:DISP "U"
IF C=17:DISP "V"
IF C=16:DISP "W"
IF C=15:DISP "X"
IF C=14:DISP "Y"
IF C=13:DISP "Z"
IF C=12:DISP " "
IF C=11:DISP "0"
IF C=10:DISP "1"
IF C=9:DISP "2"
IF C=8:DISP "3"
IF C=7:DISP "4"
IF C=6:DISP "5"
IF C=5:DISP "6"
IF C=4:DISP "7"
IF C=3:DISP "8"
IF C=2:DISP "9"
IF C=1:DISP "."
IF C=0:DISP "?"
END